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LINE TO BLOCK CONVERSION 


DECUS Program Library Write-up 


DECUS NO. 8-493 


ABSTRACT 

The program assumes k variables with n samples stored in k blocks of DECtape each containing 
n lines. Particular lines of one block correspond with the appropriate lines of other blocks. 
For data manipulation in particular in connection with DECUS NO. 8-137 "Programs for 
Storage, Manipulation and Calculation of Data Using DECtape" the program converts the 
array of k blocks with n lines to an array of n blocks with k lines. Floating-point number 
representation is used and the size of the array may be k = 23 and n = 42 at maximum. 

REQUIREMENTS 

Storage 

The program occupies core locations 20 - 43, 200 - 1657. Core locations 1600 - 7577 are 
used for data storage. 

USAGE 

Loading 

The program is loaded by the Binary Loader. 

Calling Sequence 

The program cannot be called as a subroutine. 

Switch Settings 


The switch register is used to enter the starting address ( 200 ) only. 

Start up and/or Entry 

Assuming the program has been loaded properly and a properly formatted data tape has been 
mounted on DECtape unit 1 with remote control and write enabled proceed as follows: 

Load the starting address ( 200 ) into the switch register, press LOAD ADDRESS and START. The 
program will respond with a CR-LF combination and begins with the dialog. 

Errors in Usage 

A) All block numbers entered have to be within the range of 0 - 1473^ inclusive. If on input 
an unsigned number is larger than 4095^^ or a signed number is larger than + 2047 ^q the result 
of the decimal to binary conversion is unspecified and an error occurs without indication. All 
other errors are recognized and the input is restarted then. 













B) On output an error may occur if the number of blocks required exceeds the number of 
remaining blocks on the magtape. Then the magtape stops with an "End of Tape" error. 

Recovery from such Errors 

A) If the limits shown above are exceeded, no recovery is possible and the content of the 
magtape can be destroyed if "WRITE" is enabled. Restart the program at 200 . 

B) Restart the program at 200 and select a lower number of the "First Output Block. " 
DESCRIPTION 


Discussion 

On input the program assumes data arranged in a format of k variables with n samples stored 
in k blocks of DECtape each containing n lines of corresponding data samples. Up to 23 
variables (blocks) and 42 data samples (lines) per variable are allowed at maximum. Data of 
each block has to be terminated by a dollar sign (code 244). The format is compatible with 
the DATRIT-format and the program is intended to be used in connection with DECUS NO. 
8-137. After the program has been started it types "RFAD BLOCKS:" and waits for input of 
the blocks to be converted. The blocks are treated according to the sequence of input. Input 
of a block number is in decimal form and terminated by a non-numerical character. After 
input the block number is checked whether it is negative or greater than 1473. n which is the 
number of the last block of DECtape. In both cases the program is restarted. Otherwise the 
block number is stored in a table (INBLTB). Succeeding block numbers can be entered by typing 
the starting and final block number separated by a comma. In this case the program fills up the 
table by the appropriate block numbers following the starting block number. Otherwise a 
comma is treated as a terminator. If more than 23 ^q block numbers are entered the program 
restarts. Input of block numbers is completed by terminating the input of the last block number 
by a form-feed. 

The program then types "FIRST OUTPUT BLOCK:" and waits for input of the number of the 
first output block. If the number entered is greater than or equal to zero and equal to or less 
than 1473 jq the program proceeds. Otherwise the last question is repeated. As long as the 
number of the first output block has not been accepted by the program it is possible to return' 
to the tape system (jump to 7600 ) by typing CTRl/C. 


After termination of input the specified blocks are read into the buffers (see BUFTAB) according 
to their sequence in the table (INBLTB). According to this order the first data sample of each 
block (first line) is read and stored one after another in a buffer (BUFF). The buffer is terminated 
by a dollar sign (code 244) and stored on DECtape in the first output block. Following lines are 
disassembled accordingly and stored in succeeding output blocks. Conversion is terminated at 
the occurrence of the dollar sign ("end of file") in one of the input blocks or after 42 jq lines 
have been processed. The number of lines processed is typed on the teletype as well as the last 
block used for output. The program restarts then. 
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FORMAT 


Input Data 


Max. 23. n blocks of DECtape each containing max. 42. n floating-point numbers terminated 
by a dollar sign. 

Output Data 


Max. 42.^ blocks of DECtape each containing max. 23.~ floating-point numbers terminated 
by a dollar sign. 
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0020 

0021 

0022 

002 3 

0024 

002 5 

002 6 

0027 

0030 

0031 

0032 

0033 

0034 

00 3 5 

003 6 

0037 

0040 

0041 

0042 

0043 

0200 

0201 

0202 

0203 

0204 

020 5 

020 6 

020 7 

0210 

021 1 

0212 

0213 

0214 

021 5 

021 6 

021 7 

0220 

0221 

0222 

0223 

0224 

0225 

022 6 

0227 

0230 

0231 

0232 

0233 

0234 


/DFVLR-BRG.-L-LA 
/USE 14-04 

/LINE TO BLOCK CONVERSION 

/5 JANUARY 1971 

/BASIC PDP8 AND DECTAPE 



/MAX.NO 

.OF INPUT BLOCKS: 

23 (DECIMAL) 


/ 

/INPUT 

/ 

*20 

UNIT: #1 


0 667 

PI* 

INBLTB 


0717 

P2* 

BUFTAB 


1000 

P3* 

BUFF 


0000 

PTR* 

0 


0000 

INVAL* 

0 


7564 

M FORM* 

-214 


7524 

MCOMMA* 

-254 


0000 

TEM* 

0 


0000 

OUTBLO* 

0 


2701 

BLAST* 

2701 


7575 

MCTRL* 

-203 


7600 

TAPE* 

7 600 


0000 

NOINBL* 

0 


0000 

CNTR* 

0 


0000 

BUFPTR* 

0 


0000 

BLPTR, 

0 


0000 

LCTR* 

0 


7534 

MDOL* 

-244 


0244 

DOL* 

244 


7 602 

Ml 76* 
*200 

-176 


7200 

START* 

CLA 


6046 


TLS 


1020 


TAD PI 

/INBLTB 

3023 


DCA PTR 


4777 

INPUT* 

JMS MESAGE 


4543 

4322 

#R 

TEXT /X0 


0 501 

EA 



0 440 

D 



021 4 

BL 



1703 

OC 



1323 

KS 



7240 

• 

• 



0000 

/ 



4312 

INI* 

JMS CONV 


520 4 


JMP INPUT 


1024 


TAD INVAL 


3423 


DCA I PTR 


2023 


ISZ PTR 


4340 


JMS CHECK 


1 776 


TAD SI SAVE 


1025 


TAD M FORM 


7 650 


SNA CLA 

/LAST BLOCK 0 

52 66 


JMP IN3 

/YES 

1776 


TAD SI SAVE 

/NO 

1026 


TAD MCOMMA 


7640 


SZA CLA 

/COMMA? 

521 6 


JMP INI 

/NO 

4312 

IN2* 

JMS CONV 

/YES 4 





0235 

5200 


JMP 

START 


023 ft 

7240 


CLA 

CM A 


0237 

1023 


TAD 

PTR 


0240 

302 7 


DCA 

TEM 


02 41 

1 427 


TAD 

I TEM 

/PREVIOUS VALUE 

0242 

70 4 1 


CIA 



0243 

1024 


TAD 

INVAL 


0244 

7750 


SPA 

SNA CLA 

/PRESENT-PREVIOUS <=0? 

0245 

5200 


JMP 

START 

/YES 

0246 

1 427 


TAD 

I TEM 

/NO 

0247 

3027 


DCA 

TEM 


0250 

2027 


ISZ 

TEM 


0251 

1027 


TAD 

TEM 


0252 

3423 


DCA 

I PTR 


0253 

2023 


ISZ 

PTR 


0254 

4340 


JMS 

CHECK 


0255 

1027 


TAD 

TEM 


0256 

7041 


CIA 



0257 

1024 


TAD 

INVAL 


02 60 

7 640 


SZA 

CLA 

/TABLE FILLED UP? 

02 61 

5250 


JMP 

.-11 


02 62 

1 776 


TAD 

SI SAVE 

/YES 

02 63 

1025 


TAD 

M FORM 


02 64 

7 640 


SZA 

CLA 

/LAST BLOCK #? 

02 65 

521 6 


JMP 

INI 

/NO 

02 66 

4777 

I N3> 

JMS 

MESAGE 

/YES 

02 67 

4543 


TEXT /%# 


0270 

430 6 

# F 




0271 

1 122 

IR 




0272 

2324 

ST 




0273 

4017 

0 




0274 

2524 

UT 




0275 

2025 

PU 




0276 

2440 

T 




0277 

021 4 

BL¬ 




0300 

1 703 

OC 




0301 

1372 

K: 




0302 

4000 

/ 




0303 

4312 


JMS 

CON V 


0304 

5266 


JMP 

IN3 


030 5 

1024 


TAD 

INVAL 


030 6 

3030 


DCA 

OUTBLO 


030 7 

1030 


TAD 

OUTBLO 


0310 

3775 


DCA 

BLOCKW 


031 1 

5774 


JMP 

OPERAT 


0312 

0000 

CON V* 

0 



0313 

4773 


JMS 

SI CONV 


0314 

3024 


DCA 

INVAL 


031 5 

1776 


TAD 

SI SAVE 


031 6 

1032 


TAD 

MCTRL 


0317 

7 650 


SNA 

CLA 

/RETURN TO TAPE SYSTEM? 

0320 

5433 


JMP 

I TAPE 

/YES 

0321 

1 772 


TAD 

SISET1+1 


0322 

7041 


CIA 



0323 

1 771 


TAD 

SIXSW1 


0324 

7 650 


SNA 

CLA 

/WAS THERE A CONVERSION 

0325 

5712 


JMP 

I CON V 

/NO 

032 6 

1024 


TAD 

I N VAL 

/YES 

0327 

7710 


SPA 

CLA 

/POSITIVE NUMBER? 

0330 

5712 


JMP 

I CON V 

/NO 

0331 

1024 


TAD 

INVAL 

5 





033B 

7041 


CIA 


s 0 3 i 


TAD BLAST 

B." 3 4 

7 71 a 


SPA CLA 

0335 

5 712 


• IMP I CON V 

0336 

2312 


ISZ CONV 

0337 

5712 


JMP I CON V 

0340 

0000 

CHECK♦ 

0 

0341 

1023 


TAD PTR 

0342 

7041 


CIA 

0343 

1021 


TAD P2 

0344 

7000 


NOP 

0345 

7 640 


SZA CLA 

034 6 

5740 


JMP I CHECK 

0347 

5200 


JMP START 

0371 

1224 



0372 

1274 



0373 

1200 



0374 

0 400 



0375 

0664 



0376 

130 7 



0377 

1 600 


PAGE 

0400 

1020 

OPERATE 

TAD PI 

0401 

7000 


NOP 

0402 

7041 


CIA 

0403 

1023 


TAD PTR 

040 4 

3034 


DCA NOINBL 

040 5 

1034 


TAD NOINBL 

040 6 

7041 


CIA 

040 7 

3035 


DCA CNTR 

0410 

7240 


CLA CMA 

041 1 

3023 


DCA PTR 

0412 

2023 

RAGN, 

ISZ PTR 

0413 

1023 


TAD PTR 

0414 

1020 


TAD PI 

041 5 

302 7 


DCA TEM 

041 6 

1 427 


TAD I TEM 

0417 

3777 


DCA BLOCKR 

0420 

1023 


TAD PTR 

0421 

1021 


TAD P2 

0422 

3027 


DCA TEM 

0423 

1 427 


TAD I TEM 

0424 

3776 


DCA CORER 

042 5 

4775 


JMS READ 

042 6 

2035 


ISZ CNTR 

0427 

5212 


JMP RAGN 

0430 

7200 


CLA 

0431 

3040 


DCA LCTR 

0432 

1022 

T2, 

TAD P3 

0433 

3036 


DCA BUFPTR 

0434 

1034 


TAD NOINBL 

0435 

7041 


CIA 

0436 

3035 


DCA CNTR 

0437 

1021 


TAD P2 

0440 

3037 


DCA BLPTR 

0441 

1 437 

Tl> 

TAD f BLPTR 

0442 

1040 


TAD LCTR 

0443 

3027 


DCA TEM 

0444 

1 42 7 


TAD I TEM 

0445 

1041 


TAD MDOL 

0446 

7 650 


SNA CLA 

0447 

5774 


JMP END 


/1 473 DEC* C 2701 > 

/MAX.BLOCK # EXCEEDED? 
/YES 


/MAX.NO.OF INPUT BLOCKS EXCEEDED? 

/NO 

/YES 


/INBLTB 


/NO.OF INPUT BLOCKS 


/INBLTB 


/BUFTAB 


/ALL BLOCKS READ? 
/NO 


/PUFF 


/BUFTAB 


/END OF BLOCK? 
/YES 






0450 

142 7 


TAD 

I TEM 

0451 

2027 


ISZ 

TEM 

0452 

3436 


DCA 

I BUFPTR 

0453 

2036 


I SZ 

BUFPTR 

0454 

1427 


TAD 

I TEM 

0455 

2027 


ISZ 

TEM 

0456 

3436 


DCA 

I BUFPTR 

0457 

2036 


ISZ 

BUFPTR 

0460 

1 427 


TAD 

I TEM 

0461 

343 6 


DCA 

I BUFPTR 

0462 

2036 


ISZ 

BUFPTR 

0463 

2037 


ISZ 

BLPTR 

0464 

2035 


I SZ 

CNTR 

0465 

5241 


JMP 

T1 

0466 

1042 


TAD 

DOL 

0467 

3436 


DCA 

I BUFPTR 

0470 

4773 


JMS 

WRITE 

0471 

2772 


I SZ 

BLOCKW 

0472 

2040 


I SZ 

LCTR 

0473 

2040 


I SZ 

LCTR 

0474 

20 40 


I SZ 

LCTR 

0475 

10 40 


TAD 

LCTR 

047 6 

1043 


TAD 

M 1 7 6 

0477 

7710 


SPA 

CLA 

0500 

5232 


JMP 

T2 

0501 

5774 


JMP 

END 

0572 

0 664 




0573 

0661 




0574 

0 600 




0575 

0 653 




0576 

0657 




0577 

0656 







PAGE 

0600 

4777 

END* 

JMS 

MESAGE 

0601 

4543 


TEXT /%# 

0602 

431 6 

#N 



0603 

1 756 

o. 



060 4 

1 70 6 

OF 



060 5 

401 4 

L 



060 6 

1116 

IN 



060 7 

0 523 

ES 



0610 

4020 

P 



061 1 

2217 

RO 



0612 

0305 

CE 



0613 

2323 

SS 



061 4 

0 50 4 

ED 



061 5 

7240 

• 



061 6 

0000 

/ 



0617 

7240 


CLA 

CM A 

0620 

1264 


TAD 

BLOCKW 

0621 

3027 


DCA 

TEM 

0622 

1030 


TAD 

OUTBLO 

0623 

7041 


CIA 


0624 

7001 


I AC 


062 5 

1027 


TAD 

TEM 

062 6 

4776 


JMS 

DECPRT 

0627 

4777 


JMS 

MESAGE 

0630 

4543 


TEXT /%# 

0631 

4314 

*L 



0632 

0123 

AS 



0633 

2440 

T 




/NO 


/I LINE OF ALL BLOCKS PROCESSED 

/NO 

/YES 


/MORE THAN 42<DEC.>LINES? 

/NO 

/YES 





0634 

021 4 

BL 



0635 

1703 

OC 



063 6 

1340 

K 



0637 

2523 

US 



0640 

0504 

ED 



0641 

7240 

• 

• 



0642 

0000 

/ 



0643 

1027 


TAD TEM 


0644 

4776 


JMS DECPRT 


0645 

4777 


JMS MESAGE 


0646 

4543 


TEXT /%# 


0647 

4343 




0650 

4343 




0651 

4300 

#/ 



0652 

5775 


JMP START 


0653 

0000 

READ* 

0 


0654 

4774 


JMS RWTAPE 


0655 

1201 


1201 


0656 

0000 

BLOCKR* 

0 


0657 

0000 

CORER* 

0 


0660 

5653 


JMP I READ 


0661 

0000 

WRITE* 

0 


0662 

4774 


JMS RWTAPE 


0663 

1 401 


1 401 


0664 

0000 

BLOCK W* 

0 


0665 

1000 

COREW* 

BUFF 


0666 

5661 


JMP I WRITE 


0667 

0000 

INBLTB* 

0 


0670 

0000 


0 


0671 

0000 


0 


0672 

0000 


0 


0673 

0000 


0 


0674 

0000 


0 


0675 

0000 


0 


0676 

0000 


0 


0677 

0000 


0 


0700 

0000 


0 


0701 

0000 


0 


0702 

0000 


0 


0703 

0000 


0 


070 4 

0000 


0 


070 5 

0000 


0 


070 6 

0000 


0 


070 7 

0000 


0 


0710 

0000 


0 


071 1 

0000 


0 


0712 

0000 


0 


0713 

0000 


0 


071 4 

0000 


0 


071 5 

0000 


0 


071 6 

0000 


0 

/OVERFLOW STORAGE 

0717 

2000 

BUFTAB* 

2000 


0720 

2200 


2200 


0721 

2400 


2400 


0722 

2 600 


2 600 


0723 

3000 


3000 


0724 

3200 


3200 


072 5 

3400 


3400 


072 6 

3 600 


3 600 

8 

0727 

4000 


4000 






f 

* 


0730 

4200 

4200 

0731 

4400 

4400 

0732 

4 600 

4600 

0733 

5000 

5000 

0734 

5200 

5200 

0735 

5400 

5400 

073 6 

5600 

5600 

0737 

600 0 

6000 

0740 

6200 

6200 

0741 

6400 

6400 

0742 

6600 

6600 

0743 

7000 

7000 

0744 

7200 

7200 

0745 

7400 

7400 

0774 

1400 


0775 

0200 


077 6 

1312 


0777 

1 600 

PAGE 

1000 

0000 BUFF* 

0 


/NEXT COME STANDARD SUBROUTINES SI CONV* DECPRT* 

/RWTAPEt SEE DECUS 8-137)*MESA GE 

/WHICH ARE NOT LISTED IN PASS3 

PAGE 

XLIST 


1660 0 0 0 0 

ADDRZA 

1346 

ARROW 

1325 

BLAST 

0031 

BLOCKR 

0656 

BLOCK W 

0664 

BLPTR 

0037 

BUFF 

1000 

BUFPTR 

0036 

BUFTAB 

0717 

CHECK 

0340 

CNTR 

0035 

CNTRZA 

1347 

CNTRZB 

1357 

CON V 

0312 

CORER 

0 657 

COREW 

0665 

C212 

1654 

C21 5 

1 656 

C245 

1 657 

C340 

1 652 

DECPRT 

1312 

DIGIT 

1356 

DOL 

00 42 

END 

0 600 

INBLTB 

0667 

INPUT 

0204 

INVAL 

0024 

INI 

0216 

IN2 

0234 

IN 3 

0266 

K260 

1354 

LCTR 

0040 

MASK77 

1 650 

MCOMMA 

0026 

MCTRL 

0032 


0000 /END OF PROGRAM+1 
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MDOL 

0041 

MESAGE 

1 600 

MFORM 

0025 

MSRGHT 

1 61 6 

MTP 

1 643 

Ml 7 6 

0043 

M2 

1655 

M3 

1 653 

M40 

1 651 

NOINBL 

0034 

OPERAT 

0400 

OUTBLO 

0030 

PTR 

0023 

PI 

0020 

P2 

0021 

P3 

0022 

RAGN 

0412 

READ 

0653 

RWADBN 

1532 

RWADCA 

1 530 

RWADWC 

1531 

RWAGN 

1465 

RWBCNT 

1527 

RWBGN 

141 6 

RWBLK 

1 526 

RWBN 

1 523 

RWCLOC 

1525 

RWFWD 

1 443 

RWM12 

1522 

RWM200 

1542 

RWREGA 

1 524 

RWREV 

1430 

RWTAPE 

1400 

RWTCNT 

1521 

RWWAIT 

1477 

RWWOUT 

1517 

RW0070 

1 541 

RW0077 

1540 

RW01 10 

1536 

RW0200 

1537 

RW0210 

1535 

RW0 610 

1534 

RW7000 

1533 

SI CON V 

1200 

SI CTRL 

1232 

SI END 

12 64 

SI HOLD 

1310 

SIMASK 

1300 

SIMMNS 

1306 

SIMPLS 

1305 

SIMSPC 

1304 

SI M2 60 

1302 

SI M2 71 

1303 

SINEG1 

1311 

SINMBR 

1246 

SINPUT 

1257 

SIPROC 

1211 

SIRBUT 

1301 

SI SAVE 

1307 

SISET1 

1273 

SIXSW1 

1224 

START 

0200 




TAPE 0033 
TEM 0027 
TENPWR 1350 
TYPECH 1617 
T1 0441 

72 0432 

VALUE 1355 
WRITE 0661 






% 


> 









